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EDTSFINDPARA = isolate wps paragraph entit Ib-8e Sep-1984 00: VAX-11 Bliss-32 V4 s%e Pa 1 
| eek pe r Haat 1 gf 93:3 DISKSVMSMASTER: CEDT OERCTE INDPARA. BLI; A ad (1) 
8 ZTITLE ‘EDTSFIN sp - isolate wps paragraph wai ty 
MODULE EDTSFINDP solate wos paragraph entit 
IDENT = = 'v04-000' ! File: FINDPARA.BLI Edit: AMZ1006 


BEGIN 


' 
LRAT EERE AERA 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND serie 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND a THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
? PiNnSRcRAES NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
® . 


iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGI 
!® CORPORATION. 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED SY DIGITAL. 


ITHOUT NOTICE 
TAL EQUIPMENT 


*@eeeeeeeenenneneenennnnnnen 


LRA ERR RARER EERE REAR AAA 
' 


MO OODNAWUE WN 0 OONAOUE WN $$ O ODNAUSWN —$OOONAUS WA OVDONOUS WHS 
a a a a kk kk kk kk td dd IO 
* 


DVN & BB BEE EE BEAN PPO NONININUNINDD 2 2 OO se 


ae 

O08 FACILITY: EDT -- The DEC Standard Editor 

003 ABSTRACT: 

te) This module isolate the WPS paragraph entity 

0038 ENVIRONMENT: Runs at any access mode - AST reentrant 

sre : AUTHOR: Shelly T. Solomon CREATION DATE: October 26, 1981 

0042 i MODIFIED BY: 

004 ! 

0044 ! 1-001 - Original. STS 26-Oct-1981. 

0045 i 1-002 - Take out reference to EDT$$G_LN.NO. SMB 14- -Sep-1982 
0046 ! 1-003 = Take out reference to EDTSSTST FOB. STS 22-Sep-198 

0047 ' 1-004 = Move over the delimiter when found. STS 21-Dec-198 

0048 ! 1-005 - inprove the appearance of the listing. JBS 14-Jun-1983 
0049 !' 1-006 - Make backward searches work if on the 2nd to 4th characters of the 
0050 : paragraph. AMZ 5-0ct-1983 

0051 len 

0052 


EDTSF INDPARA EDTSFINDPARA = isolate wos paragraph entit Sep-1984 00:25: X-11 Bliss-32 V4.0-74 Page 
104-000 Declarations dp tatters : ig: sep 1984 8088 te UES KSUNGMASTERSCEDT SRCSFINDPARA.BLIGTo” (25. 
; 4 9033 1 ZSSBITL ‘Declarations’ 

3 4 1! 

$ Spee 1 ! TABLE OF CONTENTS: 

: p28 1! 

3 0057 1 

; 0038 REQUIRE "EDTSRC: TRARQUNAM'; 
: 0498 1 FORWARD ROUTINE 

; 0499 1 EDTSSFND_WPARA; 

; 0500 1 

3 0501 1! 

4 beng 1 ! INCLUDE FILES: 

; 0505 1! 

3 0504 1 

; 0505 1 REQUIRE 'EDTSRC:EDTREQ'; 
; 0640 1 

3 0641 1! 

3 064 1 ! MACROS: 

: 0645 1! 

; 0644 1! NONE 

3 0645 1! 

; 0646 1 ! EQUATED SYMBOLS: 

: 0647 1! 

3 0648 1! NONE 

$ 0649 1! 

: 0650 1 ! OWN STORAGE: 

: 0651 1! 

$ 0652 1! NONE 

$ 0653 1! 

4 0654 1 ! EXTERNAL REFERENCES: 

; 0655 1} ' 

3 0656 1! In the routine 


16 
ERT EE IHOPARA EDTSFINDPARA = isolate wps paragraph entity. 1B-Sep-19 ,) 90:83:13 VAX=11 Bliss=32 ree shes Page 3 
v04-000 EDTSSFND_WPARA = isolate wps paragraph entity “Sep-1984 21:59: DISKSVMSMASTER: CEDT.SRCJF INDPARA.BLI;1 (3) 
; 4 9637 } ZSBITL ‘EDTSSFND_WPARA = isolate wps paragraph entity’ 
; 0659 1 GLOBAL ROUTINE EDTSSFND_WPARA ( ! Isolate wos paragraph entity 
; 90 0660 1 DIR ! Direction of movement 
; 0661 1 )= 
; b66¢ 1 
; § 06635 1 !++ 
: 4 peee : FUNCTIONAL DESCRIPTION: 
.. o 0666 1 ! This routine is used to isolate the WPS perenne entity. It is found by looking 
3 44 peer : for a string of consecutive carriage returns > 2. 
: 99 0669 1 ! FORMAL PARAMETERS: 
; 100 0670 1! 
3: 101 0671 1! DIR Direction of movement 
3 10¢ 0672 1! 
; 10 0675 1 ! IMPLICIT INPUTS: 
: 104 0674 1! 
; 105 0675 1! EDTS$A_US_ENT 
; 106 0676 1! EDTSSA_WK_LN 
3: 107 0677 1! EDT$$Z_E08_LN 
: 108 0678 1! EDTS$$T_LN_6uF 
3 109 0679 1! EDTSS$A_LN_PTR 
: 110 0680 1! 
s 6% 0681 1 ! IMPLICIT OUTPUTS: 
; V2 0682 1! 
s ¥i3 0683 1! NONE 
3 (114 0684 1! 
s 195 0685 1 ! ROUTINE VALUE: 
: 116 0686 1! , 
397 0687 1! 1 = success, 0 = couldn't find 
: 13 0688 1 ! 
s 19 0689 1 ! SIDE EFFECTS: 
; 120 0690 1! 
: Jay 0691 1! NONE 
3 Yee 0692 1! 
; te 0693 1 !-- 
> 124 0694 1 
: 125 0695 2 BEGIN 
: 126 0696 2 
3; 127 0697 2 EXTERNAL ROUTINE 
: 128 0698 2 EDT$$CS_BOTBUF, ! Move to bottom of buffer 
3 te 0699 2 EDTSSCS_LEFT ! Move left a character 
; ie 0700 § EDTS$CS-RIGHT, : Move right a character | 
: 131 0701 EDTS$STR_SEACMD, ' Search for a specific string 
: 132 0702 2 EDTS$CS_TOP; ! Move to top of buffer 
s 155 0703 
: 134 0704 EXTERNAL ; ety 
; in 4 EDTSSA_US_ENT : VECTOR, ! Pointers to user defined entities 
3 (136 706 EDTS$A_WK-LN : REF LIN_BLOCK, 
: 137 0707 EDT$$7_E06 LN, ‘ 
3; 138 0708 EDTS$T_LN_BUF, ' Current Line buffer | 
: 139 0709 EDTSSA_LN_PTR; ' Current character pointer 
: 140 0710 
3; «(141 0711 '¢ : ‘ 
3; 6142 tart ! This routine is used to isolate the paragraph entity. It is found by looking 
: 143 071 ! for a string of consecutive empty lines > 2. 


H 16 
EDTSFINDPARA = isolate wps paragraph pe Ig~penn 1386 90: 5:1 VAX-11 Bliss-32 V 
EDTSSFND_WPARA = isolate wos paragraph entity -Sep-1984 21:59:2 DISKSVMSMASTER:CE 
> 144 0714 l= 
> «4145 0715 
> 146 0716 LOCAL 
s 147 0717 LDIF, 
: 148 0718 ; 
3; 149 0719 
; 150 0720 4 
3: «151 0721 ' Remember where we are now. 
: 136 07 ¢ le 
EB 07 C= 0; 
: 154 0724 
: 155 0725 IF (.DIR EG@i DIR_FORWARD) 
; 156 0726 
s 157 0727 BEGIN 
; «6158 0728 + 
; 189 Or ¢8 3! If we are at CEOB] we have not found it. 
; 160 0730 3 !- 
: «161 0731 3 
; 16¢ 0732 3 IF (.EDTS$A_WK_LN EQLA EDT$$Z_EOB_LN) THEN RETURN (0); 
: 16 0733 3 
; 164 0734 3 !+ 
: «6165 0735 3 ! Skip all delimiters. 
3; «(166 0736 3 !- 
3: «(167 0737 3 
3; 168 0738 4 WHILE ((CHSRCHAR (.EDTSS$A_LN_PTR) EQL ASC_K_CR) AND : 
> 169 0739 3 CHSPTR_EQL (.EDTSSA_LA_PTR, CHSPTR (EDTS$T_LN_BUF))) DO 
: 170 0740 4 BEGIN 
: 171 0741 4 C= .C +1; 
> tee Bree 4 
s ts 0743 4 IF ( NOT EDTSSCS_RIGHT ()) THEN EXITLOOP; 
3. (174 0744 & 
s WS 0745 3 END; 
: 176 0746 3 
s WW? 0747 3 IF (.C GEQ 1) THEN RETURN (1); 
; im 0748 3 
: 179 0749 3 C = EDTSSSTR_SEACMD ( 
> 180 0750 3 CHSPTR (.EDTS$A_US_ENT (2), 1), ‘ 
> 181 0751 3 CHSRCHAR (CHSPTR (TEDT$$A_US_ENT (2])), 
; ise O73¢ 3 0, ' 
; Ww 0753 3 DIR_FORWARD ! 
: «184 0754 ; 3 
> «6185 0755 
3: «186 0756 3 IF .C 
3: «187 0757 THEN 
3; «6188 0758 '¢ ng me 
3; «189 0759 ! We found the delimiter, now skip all of the delimiters 
: 190 0760 !- 
3: «191 0761 4 BEGIN 
3 136 b766 4 
; 19 0765 4 INCR I FROM 1 TO CHSRCHAR (CHSPTR (.EDTSS$A_US_ENT [2])) DO 
; 19% 0764 ‘ EDT$S$CS_RIGHT (); 
3 196 0766 5 WHILE ((CHSRCHAR (.EDTS$A_LN_PTR) got ASC_K_CR) AND , 
; 197 076? 4 CHSPTR_EQL (.EDTSSA_LA_PTR, CHSPTR (EDTSS$T_LN_BUF))) DO 
: 199 0769 4 IF ( NOT EDTSSCS_RIGHT ()) THEN EXITLOOP; 
; 200 0770 4 
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RETURN (1); 
ELSE 


ED EDTs$cs Bo BOTBUF Q); 
43 TURN Ca608 


+ : 
} Move back one character to handle being on the first character of a pargraph. 


EDTSSCS_LEFT (); 


WHILE Tg a -EDTS$A_LN PTR) EQL ASC_K_ CR) AND 
CHSPTR_EQL ( -EDTSSA _LA_PTR, CHSPTR CEDTSST -LN_BUF))) ‘Do 


N 
N 

4 

4 

3 

4 

4 

4 

; 

4 

3 

; IF ( NOT EDTSSCS_LEFT ()) THEN EXITLOOP; 
Cz EDTSSSTR _SEACMD ( ' 
; CHSPTR ([EDT$S$A_US -ENT ieee Uh ! 
; CHSRCHAR CCHSPTRe (TED 

; DIR_BACKWARD ! 
3 

3 

3 

3 

3 

3 

4 

4 

4 

4 

4 

4 

4 

3 

4 

4 

4 

; 

1 


IF .C 
THEN 


t+ 
We found the delimiter, now move past it. 
; BEGIN 


INCR_I FROM 1 TO 5 Tipe (CHSPTR (.EDTSS$A_US_ENT (2])) DO 
EDTSSCS_RIGHT (); 


RETURN (1); 
END 


EGIN 
C = EDTSSCS_LEFT (); 
poreecs te TOP “O3 


. 
e x 


END; ! of routine EDTSSFND_WPARA 
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-IDENT \V04-000\ 
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SRCSF INDPARA.BLI 


Liss-32 V4.0-74 


MASTER: CEDT. 


aw 


entit 


pS paragraph 
- isolate wps paragraph en 


FINDPARA = isolate w 


EDT 
EDTSSFND_WPARA 


DTS 
DTS 


tt 
az 
x 
a 
o 
zo 
-O 
uO 
Ai 
- J 
oOo 
w> 


PIC,2 


-EDTSCODE,NOWRT, SHR, 


»PSECT 


o mm cw co o mM ~~ o- wom Tr wo ~ o 

w uN «- ~ ~» Tar wT Ww Wm WoO oOo Oo Oo oO 

oO ~~ ~ ~ ~~ m ~~ eR ~~ ~ ~ ~ 

So oo oO oO o oo Oo °° oo oOo o Oo oO o 

PRPS PSPSPS FS HS HS TS HES HS HS HS HSS HS HS HS HS HS FS HS HS HS HS HS HS FS SS HS HCE HS HES HS HS FSCS SS HS HS CR SESE FE SAFE Fe He 

t 

. 

oo 

a 

. 

~ 

« 

a 

oO 

Ls 4 

x 

w 

i 4 

~ 

w 

io 4 

“ 

~m 

a 

. 

N 

a 

*e* oO 

> = eo o oa oO 

oso «= ae a = a 

” om Nh o - Oo — =) - =_— oOo _ 
ac ae “Zo ae a x= bd < be x= «= a = 

>.> ag o a o -<] w co oO oO 

a = * e+ « . . . — oe wn ft ce . . — 

ae 8 eee 2s [+ 4 om « _ a — <z «& oo a 

< <+>-+2=r Jz 7 - a z « z . = > ’ 

QoQ wuMawo ws a. @ “ wun wi ” a @o “” 

aS wus tt @ a ' v a Ww ‘ Vv ‘ t Vv 

q wzZ2nar Ow 2am — Zz A mn A ” AAZM 2 ad 

a @&¢ won i ws aie ol ad o~ om AMI Sad 

a2 ewme)itway =— ¢? is t - to - ex -_ fee § — 

BOMVLE-EavY B= NE 4 -o ae _ a a4 Qa -< -o ae 

A—HAAAAA AA A > AE wie AA AWYRAA + weO@ > OE wit 

ATARAAAAGA + AA A~ A aw-o ran A~ A 

KK ee eee eE- S OI . OrOam ss: -O s Ae Ws s+ 


— s . 
“—AOORMHOCOTHO-H* A-—~agr~vTOo afk KHOMAGCMA-—MOoo 


oo 
WS WW OOO WI We OR COO Ww BOOTY eT RC w eee ee 


07FC 00000 


2090999 2 @ ” — Dau @ Mu 2 ” 
<= <qnitioaodiid§ ji0294 490 YUKYIE TINT YIU SS UI Et IM 
++ et FS FS FSS OFS Fe at 33 i at FS ORR OP Fe 
SS SSS Fatt Fhe FF SE Fo pt LH ph FPS Feet Ft $= Fat Sah $$ oOft2a 
FEFSEFSFFVCVOTVAOZT VOLVO -VOr- OOACTLAVEOTEVOVYA EVOL Ow~D 

a a Aaa 

- NN mwrw 
NOOF WM UW Ose 


SO INI OSINYIN ST ST TTT TMNMANNIN OO OOOOR-P- PPP POO POAASO 
SOOCOCSCOSOSOSOOOSOSOSOSOOSOSOOSOSOSOSOOSOSOSOSOSOOSOOSOOSOSOOOSOOSOOOSOSOOOSSoSo 
SOOSOCCSCSOSOOSOSSSOSSOSOSOSOOSOSOOSOOSOSOOSOSOSOSOOSOSOOSOSOOSOSOOSSSSo 
CGOVGOOOOSOGOOOSOOSOOSOSOSOOSSSOSSOOOSSOSOSOSSOOOSOOSOOOOOOOOOoOoO 


WWW NWI OO NWI VOMOMN-T OFC du DWOCOC4A YT - OMMOK— Vw WOO 
POORAOOOCOK—AAK—MAPK KAO O44 WO OOOO & OWA OK he OO RKP Om uw 


SOOOCSCOs VOOOM WH. —O0-—-O-5TOOS O-— WOOO T OST COMMON — Wr ODO 
Oooooown catenins ‘ein WDNOMOMMMOR. OW ZLOMMODONOOMDOOMOINMNOow 


oO 

OouuVuuNNo ovo 

Soooooo ws OO - 

Soooooo oOo oo o 

ooooogo oo 

oooooo oo 

oooooo oo 

oooooo oo 

oooooo oo 

Soooooo oo 

<xoor-omn -— COO -a oo woo ow «soon WAN-oa CO ME 
WANN Oo MW mo ww Ow nn womwuw DMO wn Ow 


F9 


esruren 


3; Routine Size: 


; 233 
254 


EDTSFINDPARA = isolate wos paragraph entit 1 
EDTSSFND_WPARA - isolate es paragraph entity f- 
4E 11 QOOA 
5 9 FB OA 
4 D OA 
000000006 00 98 FB 4 
11 OOOAF 
69 4 4 0081 
51 6 itt 
0D 61 91 00087 
Of 12 QOOBA 
50 2 9E OO0BC 
50 1 D1 OOOBF 
06 12 Bence 
69 00 FB 000C 
Js 50 FS 000C7 
E 01 70 OOOCA 
50 66 00 000CD 
7E 60 9A 00000 
01 AO 9F 00003 
6A 04 FB 00006 
54 50 D0 00009 
15 54 €9 000DC 
50 66 DO OO0DF 
53 60 9A Q00E2 
26 D4 QO0ES 
03 11 QO0E7 
65 00 Fe Q00E9 
F9 52 53 F3 OOOEC 
50 01 DO OO0FO 
04 000F3 
69 00 FB QO0F4 
54 50 DO O00F7 
00000000G 00 00 FB QOOFA 
50 54 00 00101 
04 00104 
50 D4 00105 
04 00107 
264 bytes, Routine Base: _EDTSCODE + 0000 
0823 «1 
0824 1 !<BLF/PAGE> 
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Size: 

Run Time: 
Elapsed Time: 
Lines/CPU Min: 
; Lexemes/CPU-Min: 
; penety Used: 

; Compila 


264 code + 0 data bytes 


oS 
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xe 
Ow 


106 pages 
tion Complete 


EDTSF INDPARA EDTSFINDPARA = isolate wos paragraph entit 1 Sep-1984 VAX-11 Bliss-32 V4.0-74 Page 
042000 EDTSSFND_WPARA = isolate wps paragraph entity ~8ep-1984 4 99: §3:} DISKSVMSMASTER: a EDT SRCSFINDPARA.BLI4. 
; 256 0825 1 END ! of module EDTSFINDPARA 

: 257 0836 1 , 

; 258 0827 O ELUDOM 

3 PSECT SUMMARY 

; Name Bytes Attributes 

: _EDTSCODE 264 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

H Library Statistics 

‘Gh OO Pe ee Syabols_ eo<<<<e- Pages Processing 

: File Total iheaed Percent Mapped Time 

; _$255$DUA28:CEDT.SRCJEDT.L32;1 377 12 3 40 00:00.2 

3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

; COMMAND QUALIFIERS 

; BL TSS/CHECK= (FIELD. INITIAL OPTIMIZE) /MOTRACEBACK/L 1Sat. 188:F INDPARA/OB.J=0B52F INDPARA MSRC$:F INDPARA.BLI/UPDATE=(ENH$:F IND 


8 
(4) 
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